/ KimStacks 7 / KimStacks CD-ROM 7 1993.iso / ShareWare / Utilities / Rotate FKey ƒ / RotateMF7.c

< prev

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 52 6f 74 61 74 65 | 4d 46 37 2e 63 00 00 00 |..Rotate|MF7.c...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 01 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 07 95 00 | 00 01 5e a4 60 8e 62 a4 |........|..^.`.b.|
|00000060| 61 e9 f1 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |a.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ff 3f 00 00 |........|.....?..|
|00000080| 23 64 65 66 69 6e 65 20 | 6b 54 72 61 70 4e 75 6d |#define |kTrapNum|
|00000090| 62 65 72 4d 61 73 6b 09 | 09 09 09 09 09 30 78 30 |berMask.|.....0x0|
|000000a0| 37 46 46 0d 23 64 65 66 | 69 6e 65 20 6b 55 6e 69 |7FF.#def|ine kUni|
|000000b0| 6d 70 6c 65 6d 65 6e 74 | 65 64 54 72 61 70 57 6f |mplement|edTrapWo|
|000000c0| 72 64 09 09 30 78 41 38 | 39 46 0d 0d 73 74 61 74 |rd..0xA8|9F..stat|
|000000d0| 69 63 20 6c 6f 6e 67 20 | 6d 79 47 65 74 54 72 61 |ic long |myGetTra|
|000000e0| 70 41 64 64 72 65 73 73 | 20 28 20 73 68 6f 72 74 |pAddress| ( short|
|000000f0| 20 74 72 61 70 57 6f 72 | 64 20 29 20 7b 0d 09 69 | trapWor|d ) {..i|
|00000100| 66 20 28 20 74 72 61 70 | 57 6f 72 64 20 26 20 30 |f ( trap|Word & 0|
|00000110| 78 30 38 30 30 20 29 0d | 09 09 72 65 74 75 72 6e |x0800 ).|..return|
|00000120| 20 28 20 4e 47 65 74 54 | 72 61 70 41 64 64 72 65 | ( NGetT|rapAddre|
|00000130| 73 73 20 28 20 74 72 61 | 70 57 6f 72 64 20 26 20 |ss ( tra|pWord & |
|00000140| 6b 54 72 61 70 4e 75 6d | 62 65 72 4d 61 73 6b 2c |kTrapNum|berMask,|
|00000150| 20 54 6f 6f 6c 54 72 61 | 70 20 29 20 29 3b 0d 09 | ToolTra|p ) );..|
|00000160| 65 6c 73 65 0d 09 09 72 | 65 74 75 72 6e 20 28 20 |else...r|eturn ( |
|00000170| 4e 47 65 74 54 72 61 70 | 41 64 64 72 65 73 73 20 |NGetTrap|Address |
|00000180| 28 20 74 72 61 70 57 6f | 72 64 20 26 20 6b 54 72 |( trapWo|rd & kTr|
|00000190| 61 70 4e 75 6d 62 65 72 | 4d 61 73 6b 2c 20 4f 53 |apNumber|Mask, OS|
|000001a0| 54 72 61 70 20 29 20 29 | 3b 0d 7d 0d 0d 73 74 61 |Trap ) )|;.}..sta|
|000001b0| 74 69 63 20 76 6f 69 64 | 20 6d 79 53 65 74 54 72 |tic void| mySetTr|
|000001c0| 61 70 41 64 64 72 65 73 | 73 20 28 20 6c 6f 6e 67 |apAddres|s ( long|
|000001d0| 20 70 72 6f 63 2c 20 73 | 68 6f 72 74 20 74 72 61 | proc, s|hort tra|
|000001e0| 70 57 6f 72 64 20 29 20 | 7b 0d 09 69 66 20 28 20 |pWord ) |{..if ( |
|000001f0| 74 72 61 70 57 6f 72 64 | 20 26 20 30 78 30 38 30 |trapWord| & 0x080|
|00000200| 30 20 29 0d 09 09 4e 53 | 65 74 54 72 61 70 41 64 |0 )...NS|etTrapAd|
|00000210| 64 72 65 73 73 20 28 20 | 70 72 6f 63 2c 20 74 72 |dress ( |proc, tr|
|00000220| 61 70 57 6f 72 64 20 26 | 20 6b 54 72 61 70 4e 75 |apWord &| kTrapNu|
|00000230| 6d 62 65 72 4d 61 73 6b | 2c 20 54 6f 6f 6c 54 72 |mberMask|, ToolTr|
|00000240| 61 70 20 29 3b 0d 09 65 | 6c 73 65 0d 09 09 4e 53 |ap );..e|lse...NS|
|00000250| 65 74 54 72 61 70 41 64 | 64 72 65 73 73 20 28 20 |etTrapAd|dress ( |
|00000260| 70 72 6f 63 2c 20 74 72 | 61 70 57 6f 72 64 20 26 |proc, tr|apWord &|
|00000270| 20 6b 54 72 61 70 4e 75 | 6d 62 65 72 4d 61 73 6b | kTrapNu|mberMask|
|00000280| 2c 20 4f 53 54 72 61 70 | 20 29 3b 0d 7d 0d 0d 73 |, OSTrap| );.}..s|
|00000290| 74 61 74 69 63 20 42 6f | 6f 6c 65 61 6e 20 6d 79 |tatic Bo|olean my|
|000002a0| 54 72 61 70 41 76 61 69 | 6c 20 28 20 73 68 6f 72 |TrapAvai|l ( shor|
|000002b0| 74 20 74 72 61 70 57 6f | 72 64 20 29 20 7b 0d 09 |t trapWo|rd ) {..|
|000002c0| 72 65 74 75 72 6e 20 28 | 09 6d 79 47 65 74 54 72 |return (|.myGetTr|
|000002d0| 61 70 41 64 64 72 65 73 | 73 20 28 20 74 72 61 70 |apAddres|s ( trap|
|000002e0| 57 6f 72 64 20 29 20 21 | 3d 0d 09 09 09 09 09 09 |Word ) !|=.......|
|000002f0| 6d 79 47 65 74 54 72 61 | 70 41 64 64 72 65 73 73 |myGetTra|pAddress|
|00000300| 20 28 20 6b 55 6e 69 6d | 70 6c 65 6d 65 6e 74 65 | ( kUnim|plemente|
|00000310| 64 54 72 61 70 57 6f 72 | 64 20 29 09 09 29 3b 0d |dTrapWor|d )..);.|
|00000320| 7d 0d 0d 70 61 73 63 61 | 6c 20 76 6f 69 64 20 6d |}..pasca|l void m|
|00000330| 61 69 6e 20 28 20 76 6f | 69 64 20 29 20 7b 0d 09 |ain ( vo|id ) {..|
|00000340| 50 72 6f 63 65 73 73 53 | 65 72 69 61 6c 4e 75 6d |ProcessS|erialNum|
|00000350| 62 65 72 20 09 73 63 61 | 6e 50 53 4e 2c 20 66 72 |ber .sca|nPSN, fr|
|00000360| 6f 6e 74 50 53 4e 3b 0d | 09 50 72 6f 63 65 73 73 |ontPSN;.|.Process|
|00000370| 49 6e 66 6f 52 65 63 09 | 09 09 09 70 69 72 3b 0d |InfoRec.|...pir;.|
|00000380| 09 4f 53 45 72 72 09 09 | 09 09 09 09 09 09 09 65 |.OSErr..|.......e|
|00000390| 72 72 3b 0d 09 42 6f 6f | 6c 65 61 6e 09 09 09 09 |rr;..Boo|lean....|
|000003a0| 09 09 09 09 73 61 6d 65 | 3b 0d 09 6c 6f 6e 67 09 |....same|;..long.|
|000003b0| 09 09 09 09 09 09 09 09 | 61 74 74 72 3b 0d 09 63 |........|attr;..c|
|000003c0| 68 61 72 20 09 09 09 09 | 09 09 09 09 09 2a 63 6f |har ....|.....*co|
|000003d0| 70 79 72 69 67 68 74 20 | 3d 09 22 a5 a5 a5 ca 54 |pyright |=."....T|
|000003e0| 68 69 73 20 70 72 6f 67 | 72 61 6d 20 69 73 20 a9 |his prog|ram is .|
|000003f0| 20 31 39 39 31 20 50 65 | 74 65 20 47 6f 6e 74 69 | 1991 Pe|te Gonti|
|00000400| 65 72 2c 20 22 0d 09 09 | 09 09 09 09 09 09 09 09 |er, "...|........|
|00000410| 09 09 09 09 09 09 09 09 | 09 22 41 6c 6c 20 52 69 |........|."All Ri|
|00000420| 67 68 74 73 20 52 65 73 | 65 72 76 65 64 2e 20 22 |ghts Res|erved. "|
|00000430| 0d 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00000440| 09 09 09 09 22 46 72 65 | 65 20 64 69 73 74 72 69 |...."Fre|e distri|
|00000450| 62 75 74 69 6f 6e 20 65 | 6e 63 6f 75 72 61 67 65 |bution e|ncourage|
|00000460| 64 2e 20 a5 a5 a5 22 3b | 0d 0d 09 69 66 20 28 20 |d. ...";|...if ( |
|00000470| 21 20 6d 79 54 72 61 70 | 41 76 61 69 6c 20 28 20 |! myTrap|Avail ( |
|00000480| 5f 47 65 73 74 61 6c 74 | 44 69 73 70 61 74 63 68 |_Gestalt|Dispatch|
|00000490| 20 29 20 29 20 65 72 72 | 20 3d 20 74 72 75 65 3b | ) ) err| = true;|
|000004a0| 0d 09 65 6c 73 65 20 7b | 0d 09 09 69 66 20 28 20 |..else {|...if ( |
|000004b0| 21 20 28 20 65 72 72 20 | 3d 20 47 65 73 74 61 6c |! ( err |= Gestal|
|000004c0| 74 20 28 20 67 65 73 74 | 61 6c 74 4f 53 41 74 74 |t ( gest|altOSAtt|
|000004d0| 72 2c 20 26 61 74 74 72 | 20 29 20 29 20 29 0d 09 |r, &attr| ) ) )..|
|000004e0| 09 69 66 20 28 20 28 20 | 31 20 3c 3c 20 67 65 73 |.if ( ( |1 << ges|
|000004f0| 74 61 6c 74 4c 61 75 6e | 63 68 43 6f 6e 74 72 6f |taltLaun|chContro|
|00000500| 6c 20 29 20 26 20 61 74 | 74 72 20 29 20 7b 0d 09 |l ) & at|tr ) {..|
|00000510| 09 09 70 69 72 2e 70 72 | 6f 63 65 73 73 49 6e 66 |..pir.pr|ocessInf|
|00000520| 6f 4c 65 6e 67 74 68 09 | 09 3d 20 73 69 7a 65 6f |oLength.|.= sizeo|
|00000530| 66 20 28 20 50 72 6f 63 | 65 73 73 49 6e 66 6f 52 |f ( Proc|essInfoR|
|00000540| 65 63 20 29 3b 0d 09 09 | 09 70 69 72 2e 70 72 6f |ec );...|.pir.pro|
|00000550| 63 65 73 73 4e 61 6d 65 | 09 09 09 09 09 3d 20 6e |cessName|.....= n|
|00000560| 69 6c 3b 0d 09 09 09 70 | 69 72 2e 70 72 6f 63 65 |il;....p|ir.proce|
|00000570| 73 73 41 70 70 53 70 65 | 63 09 09 09 3d 20 6e 69 |ssAppSpe|c...= ni|
|00000580| 6c 3b 0d 09 09 0d 09 09 | 09 69 66 20 28 20 21 20 |l;......|.if ( ! |
|00000590| 28 20 65 72 72 20 3d 20 | 47 65 74 46 72 6f 6e 74 |( err = |GetFront|
|000005a0| 50 72 6f 63 65 73 73 20 | 28 20 26 66 72 6f 6e 74 |Process |( &front|
|000005b0| 50 53 4e 20 29 20 29 20 | 29 20 7b 0d 09 09 09 09 |PSN ) ) |) {.....|
|000005c0| 73 63 61 6e 50 53 4e 20 | 3d 20 66 72 6f 6e 74 50 |scanPSN |= frontP|
|000005d0| 53 4e 3b 0d 09 09 09 09 | 64 6f 20 7b 0d 09 09 09 |SN;.....|do {....|
|000005e0| 09 09 65 72 72 20 3d 20 | 47 65 74 4e 65 78 74 50 |..err = |GetNextP|
|000005f0| 72 6f 63 65 73 73 20 28 | 20 26 73 63 61 6e 50 53 |rocess (| &scanPS|
|00000600| 4e 20 29 3b 0d 09 09 0d | 09 09 09 09 09 69 66 20 |N );....|.....if |
|00000610| 28 20 65 72 72 20 3d 3d | 20 70 72 6f 63 4e 6f 74 |( err ==| procNot|
|00000620| 46 6f 75 6e 64 20 29 20 | 7b 0d 09 09 09 09 09 09 |Found ) |{.......|
|00000630| 73 63 61 6e 50 53 4e 2e | 6c 6f 77 4c 6f 6e 67 4f |scanPSN.|lowLongO|
|00000640| 66 50 53 4e 20 3d 20 73 | 63 61 6e 50 53 4e 2e 68 |fPSN = s|canPSN.h|
|00000650| 69 67 68 4c 6f 6e 67 4f | 66 50 53 4e 20 3d 20 30 |ighLongO|fPSN = 0|
|00000660| 3b 0d 09 09 09 09 09 09 | 69 66 20 28 20 65 72 72 |;.......|if ( err|
|00000670| 20 3d 20 47 65 74 4e 65 | 78 74 50 72 6f 63 65 73 | = GetNe|xtProces|
|00000680| 73 20 28 20 26 73 63 61 | 6e 50 53 4e 20 29 20 29 |s ( &sca|nPSN ) )|
|00000690| 20 62 72 65 61 6b 3b 0d | 09 09 09 09 09 7d 20 65 | break;.|.....} e|
|000006a0| 6c 73 65 20 69 66 20 28 | 20 65 72 72 20 29 20 62 |lse if (| err ) b|
|000006b0| 72 65 61 6b 3b 0d 09 09 | 0d 09 09 09 09 09 69 66 |reak;...|......if|
|000006c0| 20 28 20 21 20 28 20 65 | 72 72 20 3d 20 53 61 6d | ( ! ( e|rr = Sam|
|000006d0| 65 50 72 6f 63 65 73 73 | 20 28 20 26 66 72 6f 6e |eProcess| ( &fron|
|000006e0| 74 50 53 4e 2c 20 26 73 | 63 61 6e 50 53 4e 2c 20 |tPSN, &s|canPSN, |
|000006f0| 26 73 61 6d 65 20 29 20 | 29 20 29 20 7b 0d 09 09 |&same ) |) ) {...|
|00000700| 09 09 09 09 69 66 20 28 | 20 73 61 6d 65 20 29 20 |....if (| same ) |
|00000710| 62 72 65 61 6b 3b 0d 09 | 09 09 09 09 09 69 66 20 |break;..|.....if |
|00000720| 28 20 21 20 28 20 65 72 | 72 20 3d 20 47 65 74 50 |( ! ( er|r = GetP|
|00000730| 72 6f 63 65 73 73 49 6e | 66 6f 72 6d 61 74 69 6f |rocessIn|formatio|
|00000740| 6e 20 28 20 26 73 63 61 | 6e 50 53 4e 2c 20 26 70 |n ( &sca|nPSN, &p|
|00000750| 69 72 20 29 20 29 20 29 | 0d 09 09 09 09 09 09 69 |ir ) ) )|.......i|
|00000760| 66 20 28 20 21 20 28 20 | 70 69 72 2e 70 72 6f 63 |f ( ! ( |pir.proc|
|00000770| 65 73 73 4d 6f 64 65 20 | 26 20 6d 6f 64 65 4f 6e |essMode |& modeOn|
|00000780| 6c 79 42 61 63 6b 67 72 | 6f 75 6e 64 20 29 20 29 |lyBackgr|ound ) )|
|00000790| 0d 09 09 09 09 09 09 69 | 66 20 28 20 21 20 28 20 |.......i|f ( ! ( |
|000007a0| 65 72 72 20 3d 20 53 65 | 74 46 72 6f 6e 74 50 72 |err = Se|tFrontPr|
|000007b0| 6f 63 65 73 73 20 28 20 | 26 73 63 61 6e 50 53 4e |ocess ( |&scanPSN|
|000007c0| 20 29 20 29 20 29 20 62 | 72 65 61 6b 3b 0d 09 09 | ) ) ) b|reak;...|
|000007d0| 09 09 09 7d 0d 09 09 09 | 09 7d 20 77 68 69 6c 65 |...}....|.} while|
|000007e0| 20 28 20 21 20 65 72 72 | 20 29 3b 0d 09 09 09 7d | ( ! err| );....}|
|000007f0| 0d 09 09 7d 0d 09 7d 0d | 09 69 66 20 28 20 65 72 |...}..}.|.if ( er|
|00000800| 72 20 29 20 53 79 73 42 | 65 65 70 20 28 20 31 30 |r ) SysB|eep ( 10|
|00000810| 20 29 3b 0d 7d 00 00 00 | 00 00 00 00 00 00 00 00 | );.}...|........|
|00000820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 01 00 00 00 01 18 | 00 00 00 18 00 00 00 46 |........|.......F|
|00000890| 20 28 20 76 6f 69 64 20 | 29 20 7b 0d 7d db a8 97 | ( void |) {.}...|
|000008a0| 89 a0 2a 20 55 c2 d4 5b | 21 d8 0a 34 21 d0 0a 38 |..* U..[|!..4!..8|
|000008b0| 0b 52 6f 74 61 74 65 4d | 46 37 2e 63 02 00 00 00 |.RotateM|F7.c....|
|000008c0| 54 45 58 54 4b 41 48 4c | 01 00 00 4d 00 40 00 00 |TEXTKAHL|...M.@..|
|000008d0| 00 00 54 45 58 54 4b 41 | 48 4c 01 00 00 4d 00 40 |..TEXTKA|HL...M.@|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 a4 60 8e 62 00 00 | 07 95 00 00 01 5e 41 05 |...`.b..|.....^A.|
|00000900| 3f 41 94 11 2f 0f a8 a3 | 65 3a 28 25 10 28 00 11 |?A../...|e:(%.(..|
|00000910| 09 67 1a 0c 00 00 fe 65 | 0c 5d ff c6 66 0e 14 78 |.g.....e|.]..f..x|
|00000920| fe a8 ba 3e 09 09 a8 9b | 2f 0f 0c 06 d0 09 3f a8 |...>....|/.....?.|
|00000930| a1 62 a8 b7 a8 9e e2 4d | 64 40 40 0c 46 09 67 2c |.b.....M|d@@.F.g,|
|00000940| 2f 0f 2f 38 0a 02 a8 a9 | 2f 17 25 a8 93 2f 2f 06 |/./8....|/.%..//.|
|00000950| a8 91 3f 2f 11 3f 2f 09 | 12 53 57 a8 93 3f 2f 09 |..?/.?/.|.SW..?/.|
|00000960| 53 57 3f 2f 11 a8 91 38 | 60 0e 2f 0f 3e 2b 2b a8 |SW?/...8|`./.>++.|
|00000970| a9 2f 0f a8 b8 c0 d0 0c | fe 0e 00 00 0c a7 a8 9f |./......|........|
|00000980| 00 00 00 04 00 05 00 02 | 00 00 00 0c 00 08 09 5a |........|.......Z|
|00000990| 65 72 6f 44 6f 76 65 72 | 00 00 01 00 00 00 01 18 |eroDover|........|
|000009a0| 00 00 00 18 00 00 00 46 | 00 67 6c a8 04 c8 00 00 |.......F|.gl.....|
|000009b0| 00 1c 00 46 00 01 45 54 | 41 42 00 00 00 12 45 46 |...F..ET|AB....EF|
|000009c0| 4e 54 00 00 00 1e 03 ec | ff ff 00 00 00 00 00 67 |NT......|.......g|
|000009d0| 6d 24 03 eb ff ff 00 00 | 00 08 00 67 6c e0 00 00 |m$......|...gl...|
|000009e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+